proc putar
    var winback := Window.GetSelect
    Window.Select (OutWin)
    for decreasing i : 10 .. 1
	for a : 1 .. 10
	    put comploc (a, i) : 2 ..
	end for
	put ""
    end for
    put ""
    get blank : *
    Window.Select (winback)
end putar
